home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00034_GraphTool.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.1 KB  |  104 lines
  1. --
  2. -- GraphTool
  3. --
  4.  
  5. property ancestor
  6.  
  7. property graphSpriteList
  8.  
  9.  
  10. on new me
  11.   -- set constants:
  12.   
  13.   
  14.   -- initialize the ancestor:
  15.   set ancestor = new (script "PictLinkTool")
  16.   
  17.   -- do other initializations:
  18.   set graphSpriteList = 0
  19.   return me
  20. end
  21.  
  22.  
  23. on destruct me
  24.   if objectP (ancestor) then destruct (ancestor)
  25.   set ancestor = 0
  26. end
  27.  
  28.  
  29. -- sprList should be a prop list as follows:
  30. -- [name:spriteNum, name:spriteNum]
  31. -- directions are: #up, #down, #left, #right
  32.  
  33. on makeGraph me, key, spr, increment, direction
  34.   if voidP (key) then 
  35.     put "makeGraph should have: key, sprite & increment as arguments"
  36.     return 
  37.   end if
  38.   
  39.   set tmp = []
  40.   addAt (tmp, 1, spr)
  41.   addAt (tmp, 2, increment)
  42.   
  43.   if voidP (direction) then set direction = #up
  44.   addAt (tmp, 3, direction)
  45.   
  46.   if not listP (graphSpriteList) then set graphSpriteList = [:]
  47.   addProp (graphSpriteList, key, duplicate (tmp))
  48. end
  49.  
  50.  
  51. -- move
  52. on moveGraph me, key
  53.   if not listP (graphSpriteList) then return
  54.   
  55.   set lst = getAProp (graphSpriteList, key)
  56.   if not listP (lst) then return
  57.   
  58.   set spr = getAt (lst, 1)
  59.   set increment = getAt (lst, 2)
  60.   set direction = getAt (lst, 3)
  61.   
  62.   puppetSprite spr, TRUE
  63.   
  64.   set sH = the locH of sprite spr
  65.   set sV = the locV of sprite spr
  66.   
  67.   case (direction) of
  68.       
  69.     #left:
  70.       set endH = sH - integer(increment)
  71.       
  72.       repeat while endH < the locH of sprite spr 
  73.         set the locH of sprite  spr = the locH of sprite spr - 1
  74.         updateStage
  75.       end repeat
  76.       
  77.     #right:
  78.       set endH = sH + integer(increment)
  79.       
  80.       repeat while endH > the locH of sprite spr 
  81.         set the locH of sprite  spr = the locH of sprite spr + 1
  82.         updateStage
  83.       end repeat
  84.       
  85.     #down:
  86.       set endV = sV + integer(increment)
  87.       
  88.       repeat while endV > the locV of sprite spr 
  89.         set the locV of sprite  spr = the locV of sprite spr + 1
  90.         updateStage
  91.       end repeat
  92.       
  93.     otherwise
  94.       set endV = sV - integer(increment)
  95.       
  96.       repeat while endV < the locV of sprite spr 
  97.         set the locV of sprite  spr = the locV of sprite spr - 1
  98.         updateStage
  99.       end repeat
  100.       
  101.   end case
  102.   
  103. end
  104.